home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / gs_pdfwr.ps < prev    next >
Text File  |  2002-02-23  |  16KB  |  495 lines
  1. %    Copyright (C) 1996, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_pdfwr.ps,v 1.11.2.1 2002/02/22 19:45:55 ray Exp $
  17. % PDF writer additions to systemdict.
  18.  
  19. % This file should be included iff the pdfwrite "device" is included
  20. % in the executable.
  21.  
  22. % ---------------- Predefined configurations ---------------- %
  23.  
  24. % These correspond to the 3 predefined settings in Acrobat Distiller 4,
  25. % plus a "default" setting.
  26.  
  27. % Parameters common to all configurations.
  28. % Note that we don't set AlwaysEmbed or NeverEmbed, since the default values
  29. % depend on the CompatibilityLevel and are initialized internally.
  30. /.defaultImageDict mark
  31.   /QFactor 0.9 /Blend 1
  32.   /HSamples [2 1 1 2] /VSamples [2 1 1 2]
  33. .dicttomark readonly def
  34. /.distillercommon mark
  35.   /ASCII85EncodePages false
  36.   /AntiAliasColorImages false
  37.   /AntiAliasGrayImages false
  38.   /AntiAliasMonoImages false
  39.   /AutoFilterColorImages true
  40.   /AutoFilterGrayImages true
  41.   /AutoFilterMonoImages true
  42.   /AutoPositionEPSFiles true
  43.   /Binding /Left
  44.     % What to do about the CalxxxProfiles?
  45.   /ColorACSImageDict .defaultImageDict
  46.   /ColorImageDepth -1
  47.   /ColorImageDict .defaultImageDict
  48.   /ColorImageDownsampleThreshold 1.5
  49.   /ColorImageFilter /DCTEncode
  50.   /CompressPages true
  51.   /ConvertImagesToIndexed true
  52.   /DefaultRenderingIntent /Default
  53.   /DetectBlends true
  54.   /DownsampleColorImages true
  55.   /DownsampleGrayImages true
  56.   /DownsampleMonoImages true
  57.   /EmitDSCWarnings false
  58.   /EncodeColorImages true
  59.   /EncodeGrayImages true
  60.   /EncodeMonoImages true
  61.   /EndPage -1
  62.   /GrayACSImageDict .defaultImageDict
  63.   /GrayImageDepth -1
  64.   /GrayImageDict .defaultImageDict
  65.   /GrayImageDownsampleThreshold 1.5
  66.   /GrayImageFilter /DCTEncode
  67.   /ImageMemory 500000
  68.   /LockDistillerParams false
  69.   /MaxSubsetPct 100
  70.   /MonoImageDepth -1
  71.   /MonoImageDict mark
  72.     /K -1
  73.   .dicttomark readonly
  74.   /MonoImageDownsampleThreshold 1.5
  75.   /MonoImageFilter /CCITTFaxEncode
  76.   /OPM 1
  77.   /Optimize true
  78.   /ParseDSCComments true
  79.   /ParseDSCCommentsForDocInfo true
  80.   /PreserveCopyPage true
  81.   /PreserveEPSInfo true
  82.   /PreserveHalftoneInfo false
  83.   /StartPage 1
  84.   /SubsetFonts true
  85.   /TransferFunctionInfo /Preserve
  86.   /UseFlateCompression true
  87.   /UsePrologue false
  88. .dicttomark readonly def
  89.  
  90. /.distillersettings mark
  91.  
  92. /default mark
  93.   /AutoRotatePages /PageByPage
  94.   /CannotEmbedFontPolicy /Warning
  95.   /DownsampleColorImages false
  96.   /DownsampleGrayImages false
  97.   /DownsampleMonoImages false
  98.   /Optimize false
  99. .dicttomark readonly
  100.  
  101. /screen mark
  102.   /AutoRotatePages /PageByPage
  103.   /CannotEmbedFontPolicy /Warning
  104.   /ColorConversionStrategy /sRGB
  105.   /ColorImageDownsampleType /Average
  106.   /ColorImageResolution 72
  107.   /CompatibilityLevel 1.2
  108.   /CreateJobTicket false
  109.   /DoThumbnails false
  110.   /DownsampleColorImages true
  111.   /DownsampleGrayImages true
  112.   /DownsampleMonoImages true
  113.   /EmbedAllFonts false
  114.   /GrayImageDownsampleType /Average
  115.   /GrayImageResolution 72
  116.   /MonoImageDownsampleType /Average
  117.   /MonoImageResolution 300
  118.   /ParseDSCCommentsForDocInfo false
  119.   /PreserveOPIComments false
  120.   /PreserveOverprintSettings false
  121.   /UCRandBGInfo /Remove
  122. .dicttomark readonly
  123.  
  124. /.printerACSImageDict mark
  125.   /QFactor 0.55 /Blend 1
  126.   /HSamples [2 1 1 2] /VSamples [2 1 1 2]
  127. .dicttomark readonly def
  128. /printer mark
  129.   /AutoRotatePages /None
  130.   /CannotEmbedFontPolicy /Warning
  131.   /ColorACSImageDict .printerACSImageDict
  132.   /ColorConversionStrategy /UseDeviceIndependentColor
  133.   /ColorImageDownsampleType /Bicubic
  134.   /ColorImageResolution 300
  135.   /CompatibilityLevel 1.3
  136.   /CreateJobTicket true
  137.   /DoThumbnails false
  138.   /EmbedAllFonts true
  139.   /GrayACSImageDict .printerACSImageDict
  140.   /GrayImageDownsampleType /Bicubic
  141.   /GrayImageResolution 300
  142.   /MonoImageDownsampleType /Bicubic
  143.   /MonoImageResolution 1200
  144.   /ParseDSCCommentsForDocInfo true
  145.   /PreserveOPIComments true
  146.   /PreserveOverprintSettings true
  147.   /UCRandBGInfo /Preserve
  148. .dicttomark readonly
  149.  
  150. /.prepressACSImageDict mark
  151.   /QFactor 0.25
  152.   /HSamples [1 1 1 1] /VSamples [1 1 1 1]
  153. .dicttomark readonly def
  154. /prepress mark
  155.   /AutoRotatePages /None
  156.   /CannotEmbedFontPolicy /Error
  157.   /ColorACSImageDict .prepressACSImageDict
  158.   /ColorConversionStrategy /LeaveColorUnchanged
  159.   /ColorImageDownsampleType /Bicubic
  160.   /ColorImageResolution 300
  161.   /CompatibilityLevel 1.3
  162.   /CreateJobTicket true
  163.   /DoThumbnails true
  164.   /EmbedAllFonts true
  165.   /GrayACSImageDict .prepressACSImageDict
  166.   /GrayImageDownsampleType /Bicubic
  167.   /GrayImageResolution 300
  168.   /MonoImageDownsampleType /Bicubic
  169.   /MonoImageResolution 1200
  170.   /ParseDSCCommentsForDocInfo true
  171.   /PreserveOPIComments true
  172.   /PreserveOverprintSettings true
  173.   /UCRandBGInfo /Preserve
  174. .dicttomark readonly
  175.  
  176. .dicttomark readonly def
  177.  
  178. % ---------------- End of predefined configurations ---------------- %
  179.  
  180. % Set optimizations for converting PostScript to PDF.
  181. % The ps2pdf* scripts invoke this.
  182. /.setpdfwrite {        % - .setpdfwrite -
  183.         % Set a large VM threshold to reduce garbage collection.
  184.   currentuserparams /VMThreshold get 3000000 .max setvmthreshold
  185.         % Install a level of 'save' to reduce font loading.
  186.   save pop
  187. } bind def
  188.  
  189. % ---------------- pdfmark and DSC processing ---------------- %
  190.  
  191. % Encode values to pass for the /pdfmark or /DSC pseudo-parameter.
  192. /.pdf===dict mark
  193.   /arraytype
  194.    { dup xcheck { ({) (}) } { ([) (]) } ifelse
  195.         % Stack: file obj left right
  196.       4 1 roll 2 index exch writestring () exch
  197.        { exch 2 index exch writestring
  198.      1 index exch pdf===only ( )
  199.        }
  200.       forall pop exch writestring
  201.    } bind
  202.   /packedarraytype 1 index
  203.   /dicttype
  204.    { 1 index (<<\n) writestring
  205.       { 2 index 3 -1 roll pdf===only 1 index ( ) writestring
  206.     1 index exch pdf===only dup (\n) writestring
  207.       }
  208.      forall (>>) writestring
  209.    } bind
  210. .dicttomark readonly def
  211. /pdf===only {    % <file> <obj> pdf===only -
  212.   .pdf===dict 1 index type .knownget { exec } { write===only } ifelse
  213. } bind def
  214. /.pdfcvbuf 10 string def    % enough for most arguments
  215. userdict /.pdfcvstring () put
  216. /.pdfcvs {        % <obj> .pdfcvs <string>
  217.   currentglobal exch false .setglobal
  218.   /.pdfcvstring () store
  219.         % We can't handle long values yet.
  220.   { pop dup length 0 eq { pop } {
  221.       /.pdfcvstring .pdfcvstring 3 -1 roll concatstrings store
  222.     } ifelse //.pdfcvbuf
  223.   } /NullEncode filter dup 3 -1 roll pdf===only
  224.   closefile
  225.   .setglobal .pdfcvstring
  226. } bind def
  227.  
  228. % Redefine pdfmark to pass the data to the driver.
  229. % We use a pseudo-parameter named /pdfmark whose value is an array:
  230. %    /key1 (value1) ... (CTM) /type
  231. /.pdfputparams {    % -mark- <key1> <value1> ... .pdfputparams <result...>
  232.   currentdevice null false counttomark 1 add 3 roll
  233.         % Don't allow the page device to get cleared....
  234.   {.putdeviceparams} .currentpagedevice pop {.setpagedevice} 3 .execn
  235. } bind def
  236. % Convert relevant operands to strings in an array.
  237. /.pdfcvsloop {        % -mark- values ... markname start step .pdfcvsloop
  238.             %   [values ... ctm markname]
  239.    matrix currentmatrix .pdfcvs 4 1 roll
  240.    counttomark 1 add 2 roll 
  241.    counttomark .localvmarray astore exch pop
  242.    3 1 roll
  243.             % Stack: values start step
  244.    2 index length 3 sub { 2 copy 2 copy get .pdfcvs put pop } for
  245. } bind def
  246. /.pdfcvsall {        % -mark- values ... markname .pdfcvsall <<same>>
  247.   0 1 .pdfcvsloop
  248. } bind def
  249. /.pdfcvseven {        % -mark- key value ... markname .pdfcvseven <<same>>
  250.   1 2 .pdfcvsloop
  251. } bind def
  252. /.pdfcvsnone {        % -mark- values ... markname .pdfcvsnone <<same>>
  253.   100000 1 .pdfcvsloop
  254. } bind def
  255. /.pdfcvsfirst {        % -mark- first values ... markname .pdfcvsfirst<<same>>
  256.   .pdfcvsnone
  257.   dup 0 2 copy get .pdfcvs put
  258. } bind def
  259. % The procedures in the following dictionary are called with the entire
  260. % pdfmark operand list (including the pdfmark name) on the stack;
  261. % they may modify this ad lib.  They must call .pdfcvsxxx.
  262. /.pdfmarkparams mark
  263.     % Unpack a dictionary for PUT, and don't convert stream data.
  264.   /PUT {
  265.     counttomark 3 eq {
  266.       1 index type /dicttype eq {
  267.     pop { } forall /.PUTDICT .pdfcvsall
  268.       } {
  269.     pop dup type /filetype eq {
  270.         % Read the file into a sequence of strings.
  271.         % This isn't great, but it's simple.
  272.       {
  273.         dup 1000 string readstring not { exch exit } if
  274.         exch
  275.       } loop closefile
  276.     } if
  277.     /.PUTSTREAM .pdfcvsfirst
  278.       } ifelse
  279.     } {
  280.       .pdfcvsall
  281.     } ifelse
  282.   } bind
  283.     % Unpack the array for PUTINTERVAL.
  284.   /PUTINTERVAL {
  285.     pop aload pop /.PUTINTERVAL .pdfcvsall
  286.   } bind
  287. .dicttomark readonly def
  288. /.pdfparamerror {    % ? ? ? -mark- ... <errname> <opname> .pdfparamerror -
  289.     counttomark 4 add 2 roll cleartomark pop pop pop
  290.     .systemvar exch signalerror
  291. } bind def
  292. /pdfmark {        % -mark- <key> <value> ... <markname> pdfmark -
  293.   counttomark 1 add copy
  294.   //.pdfmarkparams 1 index .knownget { exec } { .pdfcvsall } ifelse
  295.   mark /pdfmark 3 -1 roll .pdfputparams
  296.   dup type /booleantype ne {
  297.     /pdfmark .pdfparamerror
  298.   } if cleartomark
  299. } odef
  300. userdict /pdfmark .undef
  301. currentdict /.pdfmarkparams .undef
  302.  
  303. % Use the DSC processing hook to pass DSC comments to the driver.
  304. % We use a pseudo-parameter named DSC whose value is an array:
  305. %    /key1 (value1) ... /type
  306. /.pdfdsc_dict 2 dict def
  307. /.pdfdsc {    % <file> <DSC string> <dsc dict> [<prev proc>] .pdfdsc -
  308.   0 get dup null ne { 4 copy exch pop exec } { pop } ifelse 3 -1 roll pop
  309.         % Stack: <dsc string> <dsc dict>
  310.   20 .localvmdict 1 index { 3 copy put pop pop } forall
  311.   3 -1 roll .parse_dsc_comments    % <dsc dict> <dict> <type>
  312.   dup /NOP ne 2 index length 1 gt or {    % Skip unparsed comments
  313.     DEBUG { (**** DSC comment: ) print dup == 1 index === flush } if
  314.     exch mark 4 1 roll {
  315.         % mark <key1> <value1> ... <dsc dict> <type> <key> <value>
  316.       3 index 2 index known {    % Skip the DSC_struct entry
  317.         pop pop
  318.       } {
  319.         .pdfcvs 4 -2 roll
  320.       } ifelse
  321.     } forall exch pop counttomark .localvmarray astore
  322.     mark /DSC 3 -1 roll .pdfputparams
  323.     dup type /booleantype ne {
  324.       /DSC .pdfparamerror
  325.     } {
  326.       cleartomark
  327.     } ifelse
  328.   } {
  329.     pop pop pop
  330.   } ifelse
  331. } bind def
  332. /.initialize_dsc_parser where {
  333.   pop 2 dict dup .initialize_dsc_parser readonly
  334.   currentuserparams /ProcessDSCComment get
  335.   1 array astore    % in case the value is executable
  336.   //.pdfdsc /exec load 4 array astore cvx readonly
  337.   << /ProcessDSCComment 3 -1 roll >> setuserparams
  338. } if
  339.  
  340. % ---------------- {set,current}distillerparams ---------------- %
  341.  
  342. % Define setdistillerparams / currentdistillerparams.
  343. % Distiller parameters are currently treated as device parameters.
  344. /.distillerparamkeys mark
  345.         % General parameters -- all distillers
  346.   /ASCII85EncodePages { }
  347.   /AutoRotatePages { }
  348.   /Binding { }
  349.   /CompressPages { }
  350.   /DefaultRenderingIntent { }
  351.   /DetectBlends { }
  352.   /DoThumbnails { }
  353.   /ImageMemory { }
  354.   /LockDistillerParams { }
  355.   /LZWEncodePages { }
  356.   /OPM { }
  357.   /PreserveHalftoneInfo { }
  358.   /PreserveOPIComments { }
  359.   /PreserveOverprintSettings { }
  360.   /TransferFunctionInfo { }
  361.   /UCRandBGInfo { }
  362.   /UseFlateCompression { }
  363.         % General parameters -- PDF writer
  364.         % StartPage and EndPage are renamed because EndPage
  365.         % clashes with a page device parameter.
  366.   /CoreDistVersion { }
  367.   /CompatibilityLevel { }
  368.         % ****** NOTE: StartPage and EndPage are disabled because
  369.         % ****** EndPage clashes with a page device parameter.
  370. %  /EndPage { exch pop /PDFEndPage exch }
  371.     /PDFEndPage { pop pop }
  372. %  /StartPage { exch pop /PDFStartPage exch }
  373.     /PDFStartPage { pop pop }
  374.   /Optimize { }
  375.   /ParseDSCCommentsForDocInfo { }
  376.   /ParseDSCComments { }
  377.   /EmitDSCWarnings { }
  378.   /CreateJobTicket { }
  379.   /PreserveEPSInfo { }
  380.   /AutoPositionEPSFiles { }
  381.   /PreserveCopyPage { }
  382.   /UsePrologue { }
  383.         % Color sampled image parameters
  384.   /ColorACSImageDict { }
  385.   /AntiAliasColorImages { }
  386.   /AutoFilterColorImages { }
  387.   /ColorImageDepth { }
  388.   /ColorImageDict { }
  389.   /DownsampleColorImages { }
  390.   /ColorImageDownsampleThreshold { }
  391.   /ColorImageDownsampleType { }
  392.   /EncodeColorImages { }
  393.   /ColorImageFilter { }
  394.   /ColorImageResolution { }
  395.         % Color processing parameters
  396.   /CalCMYKProfile { }
  397.   /CalGrayProfile { }
  398.   /CalRGBProfile { }
  399.   /sRGBProfile { }
  400.   /ColorConversionStrategy { }
  401.   /ConvertCMYKImagesToRGB { }
  402.   /ConvertImagesToIndexed { }
  403.         % Grayscale sampled image parameters
  404.   /GrayACSImageDict { }
  405.   /AntiAliasGrayImages { }
  406.   /AutoFilterGrayImages { }
  407.   /GrayImageDepth { }
  408.   /GrayImageDict { }
  409.   /DownsampleGrayImages { }
  410.   /GrayImageDownsampleThreshold { }
  411.   /GrayImageDownsampleType { }
  412.   /EncodeGrayImages { }
  413.   /GrayImageFilter { }
  414.   /GrayImageResolution { }
  415.         % Monochrome sampled image parameters
  416.   /AntiAliasMonoImages { }
  417.   /MonoImageDepth { }
  418.   /MonoImageDict { }
  419.   /DownsampleMonoImages { }
  420.   /MonoImageDownsampleThreshold { }
  421.   /MonoImageDownsampleType { }
  422.   /EncodeMonoImages { }
  423.   /MonoImageFilter { }
  424.   /MonoImageResolution { }
  425.         % Font embedding parameters
  426.   /AlwaysEmbed
  427.    { dup length 0 gt
  428.       { dup 0 get false eq
  429.          { dup length 1 sub 1 exch getinterval exch pop /~AlwaysEmbed exch
  430.          } if
  431.       } if
  432.    }
  433.   /NeverEmbed
  434.    { dup length 0 gt
  435.       { dup 0 get false eq
  436.          { dup length 1 sub 1 exch getinterval exch pop /~NeverEmbed exch
  437.          } if
  438.       } if
  439.    }
  440.   /CannotEmbedFontPolicy { }
  441.   /EmbedAllFonts { }
  442.   /MaxSubsetPct { }
  443.   /SubsetFonts { }
  444. .dicttomark readonly def
  445. /.distillerdevice
  446.  { currentdevice .devicename /pdfwrite eq
  447.     { currentdevice }
  448.     { /pdfwrite finddevice }
  449.    ifelse
  450.  } bind def
  451. /setdistillerparams {        % <dict> setdistillerparams -
  452.   .distillerdevice null false mark 4 index {
  453.     //.distillerparamkeys 2 index .knownget { exec } { pop pop } ifelse
  454.   } forall .putdeviceparams
  455.   dup type /booleantype ne {
  456.     /setdistillerparams .pdfparamerror
  457.   } {
  458.     pop pop pop
  459.   } ifelse
  460. } odef
  461. /currentdistillerparams {    % - currentdistillerparams <dict>
  462.   .distillerdevice //.distillerparamkeys .getdeviceparams .dicttomark
  463.         % Patch StartPage and EndPage
  464.         % ****** NOTE: StartPage and EndPage are disabled because
  465.         % ****** EndPage clashes with a page device parameter.
  466. %  begin /StartPage PDFStartPage /EndPage PDFEndPage
  467. %  currentdict dup /PDFStartPage undef /PDFEndPage undef
  468. %  def def currentdict end
  469. } odef
  470.  
  471. % Patch 'where' so that the distillerparams operators are only visible
  472. % if the pdfwrite device is the current one, for the benefit of badly
  473. % designed PostScript files that "know" they have to do something different
  474. % if a distiller is processing them.
  475. .wheredict /currentdistillerparams {
  476.   currentdevice .devicename /pdfwrite eq {
  477.     .where
  478.   } {
  479.     .where pop dup //systemdict eq { pop false } { true } ifelse
  480.   } ifelse
  481. } bind put
  482. .wheredict /setdistillerparams .wheredict /currentdistillerparams get put
  483.  
  484. % Set a predefined configuration if PDFSETTINGS is defined.
  485. /PDFSETTINGS where { pop /PDFSETTINGS load } { /default } ifelse
  486. .distillersettings exch get
  487. % Don't override parameters defined on the command line.
  488. dup length .distillercommon length add dict begin
  489. .distillercommon 2 {
  490.   {
  491.     systemdict 2 index known { pop pop } { def } ifelse
  492.   } forall
  493. } repeat
  494. currentdict end setdistillerparams
  495.